home *** CD-ROM | disk | FTP | other *** search
/ Colorado Rockies Interactive CD-ROM 1999 / Colorado Rockies 1999 Interactive CD-ROM.iso / mac / DXR / Main.dxr / 00182_print 2.ls < prev    next >
Encoding:
Text File  |  1999-03-30  |  345 b   |  21 lines
  1. on mouseDown
  2.   cursor(4)
  3.   set doc to new(xtra("printomatic_lite"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "Installation")
  8.   setTextFont(doc, "Ariel")
  9.   setTextSize(doc, 10)
  10.   append(doc, member 115)
  11.   cursor(-1)
  12.   if doJobSetup(doc) then
  13.     print(doc)
  14.     set doc to 0
  15.   end if
  16. end
  17.  
  18. on mouseUp
  19.   updateStage()
  20. end
  21.